home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs03.d81 / cad.sfx / ¼ (.txt) < prev    next >
Commodore BASIC  |  1990-02-12  |  744b  |  21 lines
  1. 1 REM CO
  2. 2 A=USR(33),0:A=USR(34),0,0,6:A=USR(34),0,0,7:A=USR(0),0,1,4:A=USR(1)
  3. 3 A=USR(17):A=USR(19):A=USR(21):PRINTCHR$(14)"[147]":OPEN15,D0,15,"I":CLOSE15
  4. 4 FORT=1TO3000:NEXT
  5. 5 PRINT"[195]OLOR COMMANDS:"
  6. 6 PRINT"[198]1 --> [194]ORDER COLOR
  7. 7 [153]"ASC3 --> PEEKACKGROUND COLOR
  8. 8 PRINT"[198]5 --> [208]LOT COLOR
  9. 9 [153]"ASC7 --> LENROSSHAIR COLOR
  10. 10 GETA$:IFA$=""THEN10
  11. 11 PRINT"[147]":A=USR(0),1,7,14:A=USR(1):A=USR(16)
  12. 12 A=USR(34),8,Y,6:A=USR(34),X,231,7:A=USR(34),X,Y,0:A=USR(32),0:GOTO14
  13. 13 GETA$:IFA$=""THEN13
  14. 14 IFA$=CHR$(133)THENBO=ABS((BO+1)*(BO<16)):A=USR(7),BO:GOTO13
  15. 15 IFA$=CHR$(134)THENBC=ABS((BC+1)*(BC<16)):A=USR(5),FC,BC:GOTO13
  16. 16 IFA$=CHR$(135)THENFC=ABS((FC+1)*(FC<16)):A=USR(5),FC,BC:GOTO13
  17. 17 IFA$=CHR$(136)THENCU=ABS((CU+1)*(CU<16)):A=USR(35),0,CU:A=USR(35),1,CU
  18. 18 IFA$=CHR$(136)THENA=USR(35),2,CU:A=USR(35),3,CU:A=USR(35),6,CU
  19. 19 IFA$=CHR$(136)THENA=USR(35),7,CU:GOTO13
  20. 20 A=USR(33),0:LOAD"CMND",D0
  21.